home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00027_Script_Login Script < prev    next >
Text File  |  2001-09-17  |  2KB  |  60 lines
  1. --∂ï
  2. on login
  3.   global gLoginFlag,myWindow,gCurrentUser,loginFlag
  4.   -----------------
  5.   if not gLoginFlag then
  6.     -----------------
  7.     if objectP(myWindow) then
  8.       close myWindow
  9.       forget myWindow
  10.       --finishMovie
  11.     else 
  12.       hideEntry "all"
  13.       sound Stop 3
  14.       set myWindow to window "login.dir"
  15.       set the windowType of window "login.dir" = 3
  16.       -----------------
  17.       if the machinetype = 256 then
  18.         set the fileName of myWindow to the pathName & "MIAWs\login.dir"
  19.       else
  20.         set the fileName of myWindow to the pathName & "MIAWs:login.dir"
  21.       end if
  22.       -----------------
  23.       if the movieName = "main.dir" or the movieName = "intro.dir" then
  24.         set myWindowRect to rect(the stageLeft + 26, the stageTop + 202, the stageLeft + 283, the stageTop + 328)
  25.         set the rect of myWindow to myWindowRect
  26.       else
  27.         put the rect of myWindow into currentRect
  28.         set the rect of myWindow to centerRect(currentRect)
  29.       end if
  30.       -----------------
  31.       set the titleVisible of myWindow to FALSE
  32.       set the modal of myWindow to TRUE
  33.       -----------------
  34.       if not (gCurrentUser = "") and not (gCurrentUser = "noneUser") and not voidP(gCurrentUser) then 
  35.         tell myWindow to put "Saving data for: "&gCurrentUser&" This may take several minutes." into field "asci alert message placeholder"
  36.         tell myWindow to go frame "saving"
  37.         enableMenu(FALSE)
  38.         pupPal(myWindow)
  39.         open myWindow
  40.         moveToFront myWindow
  41.       else
  42.         enableMenu(FALSE)
  43.         tell myWindow to put "" into field "login"
  44.         pupPal(myWindow)
  45.         open myWindow
  46.         moveToFront myWindow
  47.       end if
  48.       -----------------
  49.     end if 
  50.     -----------------
  51.   end if
  52.   -----------------
  53.   if objectP(myWindow) then
  54.     set gLoginFlag = 1
  55.     go the frame
  56.   end if
  57.   -----------------
  58. end
  59.  
  60. --do "global gLoginFlag"&return&"set gLoginFlag=0"&return&"login"